﻿Public Class DichVu_BLL

    Public Function LayDanhSach()
        Dim db As New QLTCDataContext()
        Dim query = From dv In db.DichVus
                   Select dv
        Return query.ToList()

    End Function
End Class
